(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     38192,        908]
NotebookOptionsPosition[     32007,        796]
NotebookOutlinePosition[     32846,        820]
CellTagsIndexPosition[     32803,        817]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["FunctionCompile", "Title",
 CellChangeTimes->{{3.812814253597541*^9, 
  3.8128142556750903`*^9}},ExpressionUUID->"0efdaddc-a312-4713-bb17-\
d2e391dfd4b5"],

Cell[CellGroupData[{

Cell["x", "Subsubsection",
 CellChangeTimes->{
  3.8128130607498283`*^9},ExpressionUUID->"ed360816-b85b-4959-a939-\
36b1c63e7579"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Get", "[", 
  "\"\<C:\\\\Users\\\\arnou\\\\function-compile\\\\load.wl\>\"", 
  "]"}]], "Input",
 CellChangeTimes->{{3.812812109965282*^9, 3.8128121190216813`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"6c8aaef2-7743-41aa-980b-04f105934823"],

Cell[CellGroupData[{

Cell[BoxData["\<\"C:\\\\Users\\\\arnou\\\\function-compile\\\\lib\\\\12.2\\\\\
Windows-x86-64\\\\binomial.dll\"\>"], "Print",
 CellChangeTimes->{3.8128121483593006`*^9, 3.8128126914340973`*^9, 
  3.812812784631581*^9, 3.81281283386541*^9, 3.8128129973038654`*^9, 
  3.812814740865841*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"a5befd51-1025-4655-bc92-39dbf96c1e9e"],

Cell[BoxData["\<\"C:\\\\Users\\\\arnou\\\\function-compile\\\\lib\\\\12.2\\\\\
Windows-x86-64\\\\consecutive-integers-in-a-list.dll\"\>"], "Print",
 CellChangeTimes->{3.8128121483593006`*^9, 3.8128126914340973`*^9, 
  3.812812784631581*^9, 3.81281283386541*^9, 3.8128129973038654`*^9, 
  3.8128147409429016`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"11f67772-7200-458a-a160-7b533bad45eb"],

Cell[BoxData["\<\"C:\\\\Users\\\\arnou\\\\function-compile\\\\lib\\\\12.2\\\\\
Windows-x86-64\\\\factorial.dll\"\>"], "Print",
 CellChangeTimes->{3.8128121483593006`*^9, 3.8128126914340973`*^9, 
  3.812812784631581*^9, 3.81281283386541*^9, 3.8128129973038654`*^9, 
  3.8128147409498854`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"2fac250e-eef7-4149-81f4-f1bcbf12c83d"],

Cell[BoxData["\<\"C:\\\\Users\\\\arnou\\\\function-compile\\\\lib\\\\12.2\\\\\
Windows-x86-64\\\\integer-digits.dll\"\>"], "Print",
 CellChangeTimes->{3.8128121483593006`*^9, 3.8128126914340973`*^9, 
  3.812812784631581*^9, 3.81281283386541*^9, 3.8128129973038654`*^9, 
  3.8128147410358925`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"e77a8e77-4a86-4f58-90fb-116ed095815c"],

Cell[BoxData["\<\"C:\\\\Users\\\\arnou\\\\function-compile\\\\lib\\\\12.2\\\\\
Windows-x86-64\\\\making-change.dll\"\>"], "Print",
 CellChangeTimes->{3.8128121483593006`*^9, 3.8128126914340973`*^9, 
  3.812812784631581*^9, 3.81281283386541*^9, 3.8128129973038654`*^9, 
  3.812814741042842*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"9232f078-06af-4ae8-b3da-9fa3347b120c"],

Cell[BoxData["\<\"C:\\\\Users\\\\arnou\\\\function-compile\\\\lib\\\\12.2\\\\\
Windows-x86-64\\\\test.dll\"\>"], "Print",
 CellChangeTimes->{3.8128121483593006`*^9, 3.8128126914340973`*^9, 
  3.812812784631581*^9, 3.81281283386541*^9, 3.8128129973038654`*^9, 
  3.8128147410449147`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"15f7f36a-b517-4db7-8ecd-56307b431a33"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"WolframCGL`\"\>", ",", "\<\"Prototypes`\"\>", 
   ",", "\<\"WolframAppCatalog`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>", ",", "\<\"c`\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.81281474104593*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"445ec26f-7a62-4e39-99df-2928ef976e69"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "c`*"}]], "Input",
 CellChangeTimes->{{3.812814694121119*^9, 3.812814695667121*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"4299c40c-0efa-49e6-90c9-96b8f299d8bb"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["c`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {2., 8.}}], " ", 
              StyleBox["c`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["Binomial", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-0783fb38-12d7-492f-ae8c-9b117e90a351", {
                   "Binomial", "c`"}, False},
                 ButtonNote->"c`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["IntegerDigits", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-0783fb38-12d7-492f-ae8c-9b117e90a351", {
                   "IntegerDigits", "c`"}, False},
                 ButtonNote->"c`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["MakingChange", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-0783fb38-12d7-492f-ae8c-9b117e90a351", {
                   "MakingChange", "c`"}, False},
                 ButtonNote->"c`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["Factorial", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-0783fb38-12d7-492f-ae8c-9b117e90a351", {
                   "Factorial", "c`"}, False},
                 ButtonNote->"c`",
                 Evaluator->Automatic], 
                ButtonBox[
                 
                 StyleBox["ConsecutiveIntegersInAList", 
                  "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-0783fb38-12d7-492f-ae8c-9b117e90a351", {
                   "ConsecutiveIntegersInAList", "c`"}, False},
                 ButtonNote->"c`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Test", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-0783fb38-12d7-492f-ae8c-9b117e90a351", {"Test", "c`"},
                    False},
                 ButtonNote->"c`",
                 Evaluator->Automatic]}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.31666666666666665`]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{3.8128147433364143`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"4d4661ed-23f3-4c82-9413-36d571ac8e7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c`Binomial", "[", 
  RowBox[{"5", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.8128147462470756`*^9, 3.8128147491060514`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"cdef32f1-78d4-4f89-8c6e-c9fcd310385a"],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.8128147495575447`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"4489cae1-ea2f-4561-a103-4ca0932d8459"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c`Factorial", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.8128147895545764`*^9, 3.8128147981616116`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"48a71614-32e5-4791-9824-6e7995519ae1"],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{3.8128147985470448`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"de1d4c2f-cc8f-41a9-af98-2af29b9111e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Test", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8128149351883497`*^9, 3.812814936655181*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"34693823-86ea-475e-bb2b-59f8ba275725"],

Cell[BoxData["42"], "Output",
 CellChangeTimes->{3.812814936948498*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"3869aa47-d9a9-4260-93b9-6c6ee44f5a75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c`IntegerDigits", "[", "123", "]"}]], "Input",
 CellChangeTimes->{{3.812815055095656*^9, 3.812815063637103*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"e10744bd-0145-4eb1-b953-f7d8b6ca5306"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.812815063945356*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"aae4e7a4-7b6b-45ec-beaf-3767bdb34225"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$Version"], "Input",
 CellChangeTimes->{{3.812815810239641*^9, 3.812815811226496*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"86ed41f4-01e7-42e6-86e6-8facaf8d4d02"],

Cell[BoxData["\<\"12.2.0 for Microsoft Windows (64-bit) (October 26, \
2020)\"\>"], "Output",
 CellChangeTimes->{3.8128158115655155`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"c6c6ee84-d20e-4e01-b995-010a96a7fd20"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MakingChange", "[", "123", "]"}]], "Input",
 CellChangeTimes->{{3.8128158214894333`*^9, 3.8128158247652965`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"15939be8-4534-491b-a98d-5d83a2e38780"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "2", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", 
   ",", "7", ",", "8", ",", "11", ",", "12", ",", "15", ",", "16", ",", "19", 
   ",", "22", ",", "25", ",", "28", ",", "31", ",", "34", ",", "40", ",", 
   "43", ",", "49", ",", "52", ",", "58", ",", "64", ",", "70", ",", "76", 
   ",", "82", ",", "88", ",", "98", ",", "104", ",", "114", ",", "120", ",", 
   "130", ",", "140", ",", "150", ",", "160", ",", "170", ",", "180", ",", 
   "195", ",", "205", ",", "220", ",", "230", ",", "245", ",", "260", ",", 
   "275", ",", "290", ",", "305", ",", "320", ",", "341", ",", "356", ",", 
   "377", ",", "392", ",", "413", ",", "434", ",", "455", ",", "476", ",", 
   "497", ",", "518", ",", "546", ",", "567", ",", "595", ",", "616", ",", 
   "644", ",", "672", ",", "700", ",", "728", ",", "756", ",", "784", ",", 
   "820", ",", "848", ",", "884", ",", "912", ",", "948", ",", "984", ",", 
   "1020", ",", "1056", ",", "1092", ",", "1128", ",", "1173", ",", "1209", 
   ",", "1254", ",", "1290", ",", "1335", ",", "1380", ",", "1425", ",", 
   "1470", ",", "1515", ",", "1560", ",", "1615", ",", "1660", ",", "1715", 
   ",", "1760", ",", "1815", ",", "1870", ",", "1925", ",", "1980", ",", 
   "2035", ",", "2090", ",", "2156", ",", "2211", ",", "2277", ",", "2332", 
   ",", "2398", ",", "2464", ",", "2530", ",", "2596", ",", "2662", ",", 
   "2728", ",", "2806", ",", "2872", ",", "2950", ",", "3016", ",", "3094", 
   ",", "3172", ",", "3250", ",", "3328", ",", "3406", ",", "3484", ",", 
   "3575", ",", "3653", ",", "3744", ",", "3822"}], "}"}]], "Output",
 CellChangeTimes->{3.8128158250861664`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"7edce32d-30ad-422b-92b6-a324cde5e2eb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["x", "Subsubsection",
 CellChangeTimes->{
  3.8128167270128126`*^9},ExpressionUUID->"33c6963d-7b8b-4e69-9f8f-\
488dae90a278"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.812816830949995*^9, 3.812816831369582*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"8de5519a-e68c-45e2-a3d9-b2a621d00a60"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<TypeFramework`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.812816772734956*^9, 3.8128167767663364`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"76868974-77c1-49f2-8cce-ade1e97d626e"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<Compile`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.812816824475932*^9, 3.812816828564658*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"fa6214b5-1e7e-448d-9953-ef520d0d8354"],

Cell[BoxData[
 RowBox[{"InitializeCompiler", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8128168578900156`*^9, 3.812816864539312*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"1bbbb10f-e0c9-4494-8e25-7a8d4ea75cd6"],

Cell[BoxData[
 RowBox[{"Remove", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.812818659870803*^9, 3.812818684562433*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"8d59f038-6079-4d4f-9cdc-a108facbbcac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$DefaultTypeEnvironment", "[", 
   RowBox[{"\"\<declareFunction\>\"", ",", "f", ",", 
    RowBox[{
     RowBox[{"Typed", "[", 
      RowBox[{"TypeForAll", "[", 
       RowBox[{
        RowBox[{"{", "\"\<e\>\"", "}"}], ",", 
        RowBox[{
         RowBox[{"{", "\"\<e\>\"", "}"}], "\[Rule]", "\"\<e\>\""}]}], "]"}], 
      "]"}], "[", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "x", "}"}], ",", "x"}], "]"}], "]"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.812816727859412*^9, 3.812816760876306*^9}, {
  3.8128169091738544`*^9, 3.8128169219441338`*^9}, {3.8128170605518565`*^9, 
  3.8128170633851824`*^9}, {3.812817115818494*^9, 3.8128171179469337`*^9}, {
  3.812817238553132*^9, 3.812817239264105*^9}, {3.812817911157292*^9, 
  3.8128179383398705`*^9}, {3.8128185365601826`*^9, 3.8128185431394925`*^9}, {
  3.8128186326836348`*^9, 3.812818652223353*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"5b9f1189-4a5b-4cb7-9bdb-f93c65f8684c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cf1", "=", 
  RowBox[{"FunctionCompile", "[", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"Typed", "[", 
      RowBox[{"n", ",", "\"\<MachineInteger\>\""}], "]"}], ",", 
     RowBox[{"f", "[", "n", "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.812816811437112*^9, 3.812816818677699*^9}, {
  3.812817042882786*^9, 3.8128170464167385`*^9}, {3.8128170892891483`*^9, 
  3.8128170911769333`*^9}, {3.812817216103648*^9, 3.8128172178190107`*^9}, {
  3.8128172623465796`*^9, 3.812817267033924*^9}, {3.812818148692089*^9, 
  3.812818153076089*^9}, {3.812818546015299*^9, 3.8128185505145674`*^9}, {
  3.8128186129938364`*^9, 3.812818655682867*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"bdfe0b8c-e6fa-43ca-a272-ed5aed6a304f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["CompiledCodeFunction",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            GraphicsBox[
             InsetBox[
              FormBox[
               StyleBox["\"Code\"", 
                GrayLevel[0.7], Bold, 8.25, StripOnInput -> False], 
               TraditionalForm], {0, 0}], Background -> GrayLevel[0.93], Axes -> 
             False, AspectRatio -> 1, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}, ImageSizeCache -> {27., {0., 10.}}], Frame -> 
             True, FrameTicks -> None, FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.55]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Signature: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{
                    RowBox[{"{", "\"Integer64\"", "}"}], "\[Rule]", 
                    "\"Integer64\""}], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GraphicsBox[
             InsetBox[
              FormBox[
               StyleBox["\"Code\"", 
                GrayLevel[0.7], Bold, 8.25, StripOnInput -> False], 
               TraditionalForm], {0, 0}], Background -> GrayLevel[0.93], Axes -> 
             False, AspectRatio -> 1, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}, ImageSizeCache -> {27., {0., 10.}}], Frame -> 
             True, FrameTicks -> None, FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.55]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Signature: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{
                    RowBox[{"{", "\"Integer64\"", "}"}], "\[Rule]", 
                    "\"Integer64\""}], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  CompiledCodeFunction[
   Association[
   "Signature" -> TypeSpecifier[{"Integer64"} -> "Integer64"], "Input" -> 
    Function[
      Typed[$CellContext`n, "MachineInteger"], 
      $CellContext`f[$CellContext`n]], "ErrorFunction" -> Automatic, 
    "SystemID" -> "Windows-x86-64", "VersionData" -> {12.2, 0, 0}, 
    "orcInstance" -> 786893536, "orcModuleId" -> 1, "targetMachineId" -> 
    443796528], 42926192, 42926096, 42926160, 42926080, 
   "{\"Integer64\"} -> \"Integer64\""],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.8128168200991*^9, 3.812816878563396*^9, 3.812816936672152*^9, 
   3.812817012207755*^9, 3.812817047697407*^9, 3.8128170919566345`*^9, 
   3.8128171279471316`*^9, 3.8128172186059933`*^9, 3.8128172678618283`*^9, {
   3.8128179144783936`*^9, 3.8128179444479866`*^9}, 3.81281815413999*^9, 
   3.812818551907119*^9, {3.81281858594048*^9, 3.8128186879390774`*^9}},
 CellLabel->"Out[36]=",ExpressionUUID->"dbe8cc24-1e4f-436e-9086-89f1531dff5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cf2", "=", 
  RowBox[{"FunctionCompile", "[", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"Typed", "[", 
      RowBox[{"x", ",", "\"\<Real64\>\""}], "]"}], ",", 
     RowBox[{"f", "[", "x", "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.812816811437112*^9, 3.812816818677699*^9}, {
  3.812817042882786*^9, 3.8128170464167385`*^9}, {3.8128170892891483`*^9, 
  3.8128170911769333`*^9}, {3.812817216103648*^9, 3.8128172178190107`*^9}, {
  3.8128172623465796`*^9, 3.812817267033924*^9}, {3.812818148692089*^9, 
  3.812818161147595*^9}, {3.812818700461943*^9, 3.812818704416995*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"44493574-025b-4442-a059-ce1eb1cf393c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["CompiledCodeFunction",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            GraphicsBox[
             InsetBox[
              FormBox[
               StyleBox["\"Code\"", 
                GrayLevel[0.7], Bold, 8.25, StripOnInput -> False], 
               TraditionalForm], {0, 0}], Background -> GrayLevel[0.93], Axes -> 
             False, AspectRatio -> 1, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}, ImageSizeCache -> {27., {0., 10.}}], Frame -> 
             True, FrameTicks -> None, FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.55]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Signature: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{
                    RowBox[{"{", "\"Real64\"", "}"}], "\[Rule]", 
                    "\"Real64\""}], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GraphicsBox[
             InsetBox[
              FormBox[
               StyleBox["\"Code\"", 
                GrayLevel[0.7], Bold, 8.25, StripOnInput -> False], 
               TraditionalForm], {0, 0}], Background -> GrayLevel[0.93], Axes -> 
             False, AspectRatio -> 1, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}, ImageSizeCache -> {27., {0., 10.}}], Frame -> 
             True, FrameTicks -> None, FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.55]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Signature: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{
                    RowBox[{"{", "\"Real64\"", "}"}], "\[Rule]", 
                    "\"Real64\""}], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  CompiledCodeFunction[
   Association[
   "Signature" -> TypeSpecifier[{"Real64"} -> "Real64"], "Input" -> Function[
      Typed[$CellContext`x, "Real64"], 
      $CellContext`f[$CellContext`x]], "ErrorFunction" -> Automatic, 
    "SystemID" -> "Windows-x86-64", "VersionData" -> {12.2, 0, 0}, 
    "orcInstance" -> 785328288, "orcModuleId" -> 1, "targetMachineId" -> 
    443797504], 43188352, 43188240, 43188304, 43188224, 
   "{\"Real64\"} -> \"Real64\""],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.8128181619714675`*^9, 3.8128187053106856`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"b5ca8e80-04cd-4852-b78f-46aaada5a64f"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "cf", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cf", "[", "x_", "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{"x", ",", "_Integer", ",", 
    RowBox[{"cf1", "[", "x", "]"}], ",", "_Real", ",", 
    RowBox[{"cf2", "[", "x", "]"}], ",", "_", ",", "$Failed"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.8128183868195896`*^9, 3.812818468223587*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"350804e9-2656-4a3a-b381-9c5f07a836fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cf", "[", "34", "]"}]], "Input",
 CellChangeTimes->{{3.8128180057500296`*^9, 3.8128180073405266`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"11aaf52a-9503-4ed7-998e-7f1027d5b9d0"],

Cell[BoxData["34"], "Output",
 CellChangeTimes->{3.81281800771813*^9, 3.812818470099369*^9, 
  3.812818709448702*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"d557a8d5-5258-426d-ae22-bd40a78bcb92"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cf", "[", "3.4", "]"}]], "Input",
 CellChangeTimes->{{3.8128180057500296`*^9, 3.8128180073405266`*^9}, {
  3.812818470867548*^9, 3.8128184724379325`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"8ee599b9-70a4-4d0d-a6e9-ea745b27d4a1"],

Cell[BoxData["3.4`"], "Output",
 CellChangeTimes->{3.8128184727741585`*^9, 3.812818710305152*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"b9810938-670d-44ec-8159-44e0ee378add"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cf", "[", "I", "]"}]], "Input",
 CellChangeTimes->{{3.812818473983561*^9, 3.812818476229273*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"c7f8ee6b-fb7d-4e79-819c-543c3528e9de"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.8128184765736694`*^9, 3.8128187110802393`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"c081b771-59b7-4deb-b3d1-964ba2349692"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["x", "Subsubsection",
 CellChangeTimes->{
  3.8128187704913807`*^9},ExpressionUUID->"732ed025-81fd-4882-b8bf-\
136be75f9cb6"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"binomial", ",", "factorial"}], "]"}]], "Input",
 CellChangeTimes->{{3.812818935197998*^9, 3.8128189414884996`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"2f7f6f6a-38c9-4c88-b88b-da5ea1c9878f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"binomial", "=", 
   RowBox[{"FunctionCompile", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Typed", "[", 
          RowBox[{"n", ",", "\"\<MachineInteger\>\""}], "]"}], ",", 
         RowBox[{"Typed", "[", 
          RowBox[{"k", ",", "\"\<MachineInteger\>\""}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Quotient", "[", 
        RowBox[{
         RowBox[{"fac", "[", "n", "]"}], ",", 
         RowBox[{
          RowBox[{"fac", "[", "k", "]"}], "*", 
          RowBox[{"fac", "[", 
           RowBox[{"n", "-", "k"}], "]"}]}]}], "]"}]}], "]"}], "/.", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"fac", "\[Rule]", 
       RowBox[{"Typed", "[", 
        RowBox[{
         RowBox[{"KernelFunction", "[", "factorial", "]"}], ",", 
         RowBox[{
          RowBox[{"{", "\"\<MachineInteger\>\"", "}"}], "\[Rule]", 
          "\"\<MachineInteger\>\""}]}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.812818771466176*^9, 3.8128188802010965`*^9}, 
   3.8128189230170283`*^9, {3.8128189774542103`*^9, 3.8128189884263477`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"3bffe9a5-2c40-46bd-a804-a5f1ad7f1c61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"binomial", "[", 
  RowBox[{"5", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.812818891403629*^9, 3.8128188938308325`*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"4940e055-421f-46fe-81c1-2b81b351c043"],

Cell[BoxData[
 TemplateBox[{
  "CompiledCodeFunction", "uncomp", 
   "\"A compiled code runtime error occurred; reverting to uncompiled \
evaluation: \
\\!\\(\\*RowBox[{\\\"\\\\\\\"ExpressionConversion\\\\\\\"\\\"}]\\).\"", 2, 59,
    11, 30721483155163590627, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.812819012480258*^9},
 CellLabel->
  "During evaluation of \
In[59]:=",ExpressionUUID->"7b9e5076-23f0-4021-8441-21305514c266"],

Cell[BoxData[
 RowBox[{"Quotient", "[", 
  RowBox[{
   RowBox[{"factorial", "[", "5", "]"}], ",", 
   RowBox[{
    RowBox[{"factorial", "[", "2", "]"}], " ", 
    RowBox[{"factorial", "[", "3", "]"}]}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.8128188941699114`*^9, 3.8128189498852043`*^9, {3.812818998176093*^9, 
   3.8128190124892664`*^9}},
 CellLabel->"Out[59]=",ExpressionUUID->"1998012c-760d-4525-884f-ff201d89d5e9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"factorial", "=", 
   RowBox[{"FunctionCompile", "[", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Typed", "[", 
        RowBox[{"n", ",", "\"\<MachineInteger\>\""}], "]"}], "}"}], ",", 
      RowBox[{"Fold", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"Range", "[", "n", "]"}]}], "]"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.812818903211725*^9, 3.8128189124044795`*^9}, 
   3.812818952039399*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"4e93126b-3d45-4ca4-a060-4c4ee67664e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"binomial", "[", 
  RowBox[{"5", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.8128189547633557`*^9, 3.812818958375511*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"947c3537-5ff4-4f21-861b-f23a6d8049e3"],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.812818958743081*^9, 3.8128190177000246`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"bf8d3ed9-07b4-44b7-bf82-2f7fe97ae4cc"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1215., 748.5},
WindowMargins->{{-4.875, Automatic}, {Automatic, -4.875}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, 
  "DocuToolsSettingsInternal" -> {
   "$ApplicationName" -> "SmartCVS", "$LinkBase" -> "SmartCVS", 
    "$ApplicationDirectory" -> "C:\\Users\\arnou\\Documents\\SmartCVS\\", 
    "$DocumentationDirectory" -> 
    "C:\\Users\\arnou\\Documents\\SmartCVS\\English\\", "$UseNewPageDialog" -> 
    "", "$PacletVersion" -> "0.10.2241"}, "TryRealOnly" -> False},
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (October 26, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"a3148ce9-855d-4ad1-924b-a2f22ea4b771"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 160, 3, 98, "Title",ExpressionUUID->"0efdaddc-a312-4713-bb17-d2e391dfd4b5"],
Cell[CellGroupData[{
Cell[765, 29, 130, 3, 45, "Subsubsection",ExpressionUUID->"ed360816-b85b-4959-a939-36b1c63e7579"],
Cell[CellGroupData[{
Cell[920, 36, 266, 5, 28, "Input",ExpressionUUID->"6c8aaef2-7743-41aa-980b-04f105934823"],
Cell[CellGroupData[{
Cell[1211, 45, 392, 7, 21, "Print",ExpressionUUID->"a5befd51-1025-4655-bc92-39dbf96c1e9e"],
Cell[1606, 54, 416, 7, 21, "Print",ExpressionUUID->"11f67772-7200-458a-a160-7b533bad45eb"],
Cell[2025, 63, 395, 7, 21, "Print",ExpressionUUID->"2fac250e-eef7-4149-81f4-f1bcbf12c83d"],
Cell[2423, 72, 400, 7, 21, "Print",ExpressionUUID->"e77a8e77-4a86-4f58-90fb-116ed095815c"],
Cell[2826, 81, 397, 7, 21, "Print",ExpressionUUID->"9232f078-06af-4ae8-b3da-9fa3347b120c"],
Cell[3226, 90, 390, 7, 21, "Print",ExpressionUUID->"15f7f36a-b517-4db7-8ecd-56307b431a33"]
}, Open  ]],
Cell[3631, 100, 412, 7, 32, "Output",ExpressionUUID->"445ec26f-7a62-4e39-99df-2928ef976e69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4080, 112, 190, 3, 28, "Input",ExpressionUUID->"4299c40c-0efa-49e6-90c9-96b8f299d8bb"],
Cell[4273, 117, 4816, 121, 113, "Output",ExpressionUUID->"4d4661ed-23f3-4c82-9413-36d571ac8e7c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9126, 243, 234, 4, 28, "Input",ExpressionUUID->"cdef32f1-78d4-4f89-8c6e-c9fcd310385a"],
Cell[9363, 249, 151, 2, 32, "Output",ExpressionUUID->"4489cae1-ea2f-4561-a103-4ca0932d8459"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9551, 256, 213, 3, 28, "Input",ExpressionUUID->"48a71614-32e5-4791-9824-6e7995519ae1"],
Cell[9767, 261, 152, 2, 32, "Output",ExpressionUUID->"de1d4c2f-cc8f-41a9-af98-2af29b9111e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9956, 268, 199, 3, 28, "Input",ExpressionUUID->"34693823-86ea-475e-bb2b-59f8ba275725"],
Cell[10158, 273, 150, 2, 32, "Output",ExpressionUUID->"3869aa47-d9a9-4260-93b9-6c6ee44f5a75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10345, 280, 215, 3, 28, "Input",ExpressionUUID->"e10744bd-0145-4eb1-b953-f7d8b6ca5306"],
Cell[10563, 285, 204, 4, 32, "Output",ExpressionUUID->"aae4e7a4-7b6b-45ec-beaf-3767bdb34225"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10804, 294, 179, 2, 28, "Input",ExpressionUUID->"86ed41f4-01e7-42e6-86e6-8facaf8d4d02"],
Cell[10986, 298, 216, 3, 32, "Output",ExpressionUUID->"c6c6ee84-d20e-4e01-b995-010a96a7fd20"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11239, 306, 216, 3, 28, "Input",ExpressionUUID->"15939be8-4534-491b-a98d-5d83a2e38780"],
Cell[11458, 311, 1754, 25, 91, "Output",ExpressionUUID->"7edce32d-30ad-422b-92b6-a324cde5e2eb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13261, 342, 130, 3, 45, "Subsubsection",ExpressionUUID->"33c6963d-7b8b-4e69-9f8f-488dae90a278"],
Cell[13394, 347, 174, 2, 28, "Input",ExpressionUUID->"8de5519a-e68c-45e2-a3d9-b2a621d00a60"],
Cell[13571, 351, 225, 3, 28, "Input",ExpressionUUID->"76868974-77c1-49f2-8cce-ade1e97d626e"],
Cell[13799, 356, 217, 3, 28, "Input",ExpressionUUID->"fa6214b5-1e7e-448d-9953-ef520d0d8354"],
Cell[14019, 361, 212, 3, 28, "Input",ExpressionUUID->"1bbbb10f-e0c9-4494-8e25-7a8d4ea75cd6"],
Cell[14234, 366, 204, 3, 28, "Input",ExpressionUUID->"8d59f038-6079-4d4f-9cdc-a108facbbcac"],
Cell[14441, 371, 1005, 22, 28, "Input",ExpressionUUID->"5b9f1189-4a5b-4cb7-9bdb-f93c65f8684c"],
Cell[CellGroupData[{
Cell[15471, 397, 764, 14, 28, "Input",ExpressionUUID->"bdfe0b8c-e6fa-43ca-a272-ed5aed6a304f"],
Cell[16238, 413, 4800, 100, 65, "Output",ExpressionUUID->"dbe8cc24-1e4f-436e-9086-89f1531dff5f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21075, 518, 703, 13, 28, "Input",ExpressionUUID->"44493574-025b-4442-a059-ce1eb1cf393c"],
Cell[21781, 533, 4448, 94, 65, "Output",ExpressionUUID->"b5ca8e80-04cd-4852-b78f-46aaada5a64f"]
}, Open  ]],
Cell[26244, 630, 499, 11, 48, "Input",ExpressionUUID->"350804e9-2656-4a3a-b381-9c5f07a836fd"],
Cell[CellGroupData[{
Cell[26768, 645, 205, 3, 28, "Input",ExpressionUUID->"11aaf52a-9503-4ed7-998e-7f1027d5b9d0"],
Cell[26976, 650, 196, 3, 32, "Output",ExpressionUUID->"d557a8d5-5258-426d-ae22-bd40a78bcb92"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27209, 658, 257, 4, 28, "Input",ExpressionUUID->"8ee599b9-70a4-4d0d-a6e9-ea745b27d4a1"],
Cell[27469, 664, 176, 2, 32, "Output",ExpressionUUID->"b9810938-670d-44ec-8159-44e0ee378add"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27682, 671, 200, 3, 28, "Input",ExpressionUUID->"c7f8ee6b-fb7d-4e79-819c-543c3528e9de"],
Cell[27885, 676, 181, 2, 32, "Output",ExpressionUUID->"c081b771-59b7-4deb-b3d1-964ba2349692"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28115, 684, 130, 3, 45, "Subsubsection",ExpressionUUID->"732ed025-81fd-4882-b8bf-136be75f9cb6"],
Cell[28248, 689, 243, 4, 28, "Input",ExpressionUUID->"2f7f6f6a-38c9-4c88-b88b-da5ea1c9878f"],
Cell[28494, 695, 1305, 33, 87, "Input",ExpressionUUID->"3bffe9a5-2c40-46bd-a804-a5f1ad7f1c61"],
Cell[CellGroupData[{
Cell[29824, 732, 231, 4, 28, "Input",ExpressionUUID->"4940e055-421f-46fe-81c1-2b81b351c043"],
Cell[30058, 738, 458, 11, 24, "Message",ExpressionUUID->"7b9e5076-23f0-4021-8441-21305514c266"],
Cell[30519, 751, 424, 10, 32, "Output",ExpressionUUID->"1998012c-760d-4525-884f-ff201d89d5e9"]
}, Open  ]],
Cell[30958, 764, 576, 15, 28, "Input",ExpressionUUID->"4e93126b-3d45-4ca4-a060-4c4ee67664e8"],
Cell[CellGroupData[{
Cell[31559, 783, 231, 4, 28, "Input",ExpressionUUID->"947c3537-5ff4-4f21-861b-f23a6d8049e3"],
Cell[31793, 789, 174, 2, 32, "Output",ExpressionUUID->"bf8d3ed9-07b4-44b7-bf82-2f7fe97ae4cc"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

